<script>on mouseUpglobal contactInfoselect the clickLineput the value of the clickLine into contactInforepeatif last char of contactInfo is not "," then delete last char of¬contactInfoif last char of contactInfo is "," thendelete last char of contactInfoexit repeatend ifend repeatassemblePhoneNumbersend mouseUpon assemblePhoneNumbersglobal contactInfoshow cd fld "Phone Info"put "Home" && bg fld "Home Phone" of cd contactInfo¬into line 1 of cd fld "Phone Info"put "Business" && bg fld "Business Phone" of cd contactInfo¬into line 2 of cd fld "Phone Info"put "Alternate" && bg fld "Alternate Phone" of cd contactInfo¬into line 3 of cd fld "Phone Info"put " Click In Field to Hide" into line 4 of cd fld¬"Phone Info"select the clickLineend assemblePhoneNumbers</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>26</left>
<top>21</top>
<right>486</right>
<bottom>67</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>27</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>36</textHeight>
<name>Contact Message</name>
<script></script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>88</left>
<top>74</top>
<right>331</right>
<bottom>93</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>141</left>
<top>240</top>
<right>356</right>
<bottom>308</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Phone Info</name>
<script>on mouseUpput empty into mehide meend mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>365</left>
<top>257</top>
<right>496</right>
<bottom>328</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Phone Message</name>
<script></script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>475</left>
<top>150</top>
<right>501</right>
<bottom>172</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUpshow cd fld "Phone Message"wait 160hide cd fld "Phone Message"end mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>182</left>
<top>308</top>
<right>313</right>
<bottom>330</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return to Master</name>
<script>on mouseUplock screenput empty into cd fld "Contact Info"go cd "Master"unlock screenend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>5</id>
<text>Name, Date Of Last Contact</text>
</content>
<content>
<layer>card</layer>
<id>14</id>
<text>Click OnLineFor PhoneNumber</text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>Numbers To Call:</text>
</content>
<name>Contact Info</name>
<script>on closeCardput empty into cd fld "Phone Info"hide cd fld "Phone Info"end closeCard</script>
</card>
card_3602.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpanswer "Do you want to compact this stack?" with "Abort" or "Compact"if it is "Abort" then exit mouseUpif it is "Compact" then doMenu Compact Stackend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>182</left>
<top>308</top>
<right>313</right>
<bottom>330</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return to Master</name>
<script>on mouseUpgo cd "Master"end mouseUp</script>
<script>--clearReturns here because if user clicks in me lower than last listing,selecting the clickLine will throw in returnson mouseUpglobal goStatsput empty into cd fld "Info"hide cd fld "Info"select the clickLineput the value of the clickLine into goStatsclearReturnsend mouseUpon clearReturnsrepeatif last char of cd fld "Survivor List" is return then delete last char¬of cd fld "Survivor List"if last char of cd fld "Survivor List" is not return then exit repeatend repeatend clearReturns</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>343</left>
<top>52</top>
<right>497</right>
<bottom>99</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>194</left>
<top>253</top>
<right>482</right>
<bottom>337</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Info</name>
<script>on mouseUpput empty into cd fld "Info"hide cd fld "Info"end mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>253</top>
<right>110</right>
<bottom>275</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New!</name>
<script>on mouseUpglobal goStatsput empty into goStatsglobal newFriendask "Enter the name:"if it is empty then exit mouseUpif it is a number thenanswer "Do not use numbers for names!"exit mouseUpend ifif it is not empty thenput it into newFriendif the number of chars of newFriend >21 thenanswer "Only a maximum of 21 letters are allowed!"exit mouseUpend ifrepeat with x = 1 to number of lines of cd fld "Survivor List"if line x of cd fld "Survivor List" is newFriend thenanswer "Already listed!"exit mouseUpend ifend repeatif cd fld "Survivor List" is empty thenchangeCaseput newFriend into cd fld "Survivor List"createCardexit mouseUpend ifif cd fld "Survivor List" is not empty thenget the number of lines of cd fld "Survivor List"put it into thisLineadd 1 to thisLinechangeCaseput newFriend into line thisLine of cd fld "Survivor List"lock screenselect last line of cd fld "Survivor List"unlock screencreateCardselect after last char of bg fld "Street"exit mouseUpend ifend ifend mouseUpon createCardglobal newFriendlock screengo cd "Vital Stats"doMenu "New Card"unlock screenset the name of this cd to newFriendput newFriend into bg fld "Name"end createCardon changeCaseglobal newFriendrepeat with x = 1 to number of chars of newFriendif char x of newFriend is "a" then put "A" into char x of newFriendif char x of newFriend is "b" then put "B" into char x of newFriendif char x of newFriend is "c" then put "C" into char x of newFriendif char x of newFriend is "d" then put "D" into char x of newFriendif char x of newFriend is "e" then put "E" into char x of newFriendif char x of newFriend is "f" then put "F" into char x of newFriendif char x of newFriend is "g" then put "G" into char x of newFriendif char x of newFriend is "h" then put "H" into char x of newFriendif char x of newFriend is "i" then put "I" into char x of newFriendif char x of newFriend is "j" then put "J" into char x of newFriendif char x of newFriend is "k" then put "K" into char x of newFriendif char x of newFriend is "l" then put "L" into char x of newFriendif char x of newFriend is "m" then put "M" into char x of newFriendif char x of newFriend is "n" then put "N" into char x of newFriendif char x of newFriend is "o" then put "O" into char x of newFriendif char x of newFriend is "p" then put "P" into char x of newFriendif char x of newFriend is "q" then put "Q" into char x of newFriendif char x of newFriend is "r" then put "R" into char x of newFriendif char x of newFriend is "s" then put "S" into char x of newFriendif char x of newFriend is "t" then put "T" into char x of newFriendif char x of newFriend is "u" then put "U" into char x of newFriendif char x of newFriend is "v" then put "V" into char x of newFriendif char x of newFriend is "w" then put "W" into char x of newFriendif char x of newFriend is "x" then put "X" into char x of newFriendif char x of newFriend is "y" then put "Y" into char x of newFriendif char x of newFriend is "z" then put "Z" into char x of newFriendend repeatend changeCase</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>282</top>
<right>110</right>
<bottom>304</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Contact Info</name>
<script>on mouseUplock screengo cd "Contact Info"put empty into cd fld "Contact Message"unlock screenput "Now posting! Please wait!" into cd fld "Contact Message"wait 60set cursor to watchrepeat with x = 1 to number of lines of cd fld "Survivor List" of cd "Master"put line x of cd fld "Survivor List" of cd "Master" into theSurvivorif bg fld "Contacts" of cd theSurvivor is not empty thenput theSurvivor & "," && last line of bg fld "Contacts" of cd theSurvivor¬into line x of cd fld "Contact Info"end ifif bg fld "Contacts" of cd theSurvivor is empty thenput theSurvivor & ", No contact!" into line x of cd fld "Contact Info"end ifend repeatput empty into cd fld "Contact Message"wait 60put "Numbers To Call:" into cd fld "Contact Message"end mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>112</top>
<right>476</right>
<bottom>134</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Dump!</name>
<script>on mouseUpglobal goStatsif goStats is empty thenanswer "Select a name from the list first!"exit mouseUpend ifif goStats is not empty thenanswer "Dump" && goStats & "?" with "Cancel" or "Dump"if it is "Cancel" thenput empty into goStatsexit mouseUpend ifif it is "Dump" thengo cd goStatslock screendoMenu "Delete Card"go cd "Master"unlock screenrepeat with x = 1 to number of lines of cd fld "Survivor List"if line x of cd fld "Survivor List" is goStats thenselect line x of cd fld "Survivor List"delete line x of cd fld "Survivor List"clearReturnsexit repeatend ifend repeatput empty into goStatsend ifend ifend mouseUpon clearReturnsrepeatif last char of cd fld "Survivor List" is return then delete last char¬of cd fld "Survivor List"if last char of cd fld "Survivor List" is not return then exit repeatend repeatend clearReturns</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>141</top>
<right>476</right>
<bottom>163</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Vital Stats</name>
<script>on mouseUpglobal goStatsif goStats is empty thenanswer "Select a name from the list first!"exit mouseUpend ifif goStats is not empty thenlock screengo cd goStatsput empty into goStatsunlock screenend ifend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>128</left>
<top>52</top>
<right>328</right>
<bottom>74</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>16</textSize>
<textStyle>outline</textStyle>
<textStyle>italic</textStyle>
<textStyle>bold</textStyle>
<textHeight>21</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>171</top>
<right>476</right>
<bottom>193</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Contact Made</name>
<script>on mouseUpglobal goStatsif goStats is empty thenanswer "Select a name from the list first!"exit mouseUpend ifif goStats is not empty thenif bg fld "Contacts" of cd goStats is empty thenput the short date into bg fld "Contacts" of cd goStatsput empty into goStatsanswer "Contact recorded!"exit mouseUpend ifif bg fld "Contacts" of cd goStats is not empty thenput return & the short date after bg fld "Contacts" of cd goStatsput empty into goStatsanswer "Contact recorded!"end ifend ifend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>376</left>
<top>201</top>
<right>476</right>
<bottom>223</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show Phone</name>
<script>on mouseUpglobal goStatsif goStats is empty thenanswer "Select a name from the list first!"exit mouseUpend ifif goStats is not empty then showPhoneend mouseUpon showPhoneglobal goStatsshow cd fld "Info"put " " & goStats into line 1 of cd fld "Info"put "Home Phone" & " " & bg fld "Home Phone" of cd goStats into¬line 2 of cd fld "Info"put "Business Phone" & " " & bg fld "Business Phone" of cd goStats¬into line 3 of cd fld "Info"put "Alternate Phone" & " " & bg fld "Alternate Phone" of cd¬goStats into line 4 of cd fld "Info"put " Voyeur? Click field to hide!" into line 5 of cd fld "Info"put empty into goStatsend showPhone</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>94</left>
<top>1</top>
<right>412</right>
<bottom>51</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>36</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<textHeight>48</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>3</left>
<top>58</top>
<right>125</right>
<bottom>79</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Password</name>
<script></script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>104</top>
<right>92</right>
<bottom>126</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<name>Sort</name>
<script>on mouseUpglobal goStatsput empty into goStatsif number of lines of cd fld "Survivor List" > 1 thenanswer "This will take a short while. Are you sure you want your" &&¬"list sorted?" with "Abort" or "Do It"if it is abort then exit mouseupput empty into cd fld "Info"--show cd fld "Info"--put " ----------Now Sorting----------" into line 3 of cd fld "Info"--global saveListglobal newListput empty into newListput empty into saveListset cursor to watchput cd fld "Survivor List" into saveListtransferList atransferList btransferList ctransferList dtransferList etransferList ftransferList gtransferList htransferList itransferList jtransferList ktransferList ltransferList mtransferList ntransferList otransferList ptransferList qtransferList rtransferList stransferList ttransferList utransferList vtransferList wtransferList xtransferList ytransferList zlock screenput newList into cd fld "Survivor List"select first line of cd fld "Survivor List"unlock screenrepeatif last char of cd fld "Survivor List" is return then delete last char of cd fld "Survivor List"if last char of cd fld "Survivor List" is not return then exit repeatend repeathide cd fld "Info"--put empty into cd fld "Info"--else answer "Can't sort. Not enough survivors!"end mouseUpon transferList letterglobal saveListglobal newListrepeat with x = 1 to number of lines of saveListrepeatif last char of newList is return then delete last char of newListif last char of newList is not return then exit repeatend repeatif char 1 of line x of saveList is letter thenput return & line x of saveList after newListend ifend repeatif first line of newList is empty then delete first line of newListend transferListon mouseUpglobal goStatsput empty into goStatsanswer "This will take a short while. Are you sure you want your" &&¬"list sorted?" with "Abort" or "Do It"if it is abort then exit mouseupglobal saveListglobal newListput empty into newListput empty into saveListset cursor to watchput cd fld "Survivor List" into saveListtransferList atransferList btransferList ctransferList dtransferList etransferList ftransferList gtransferList htransferList itransferList jtransferList ktransferList ltransferList mtransferList ntransferList otransferList ptransferList qtransferList rtransferList stransferList ttransferList utransferList vtransferList wtransferList xtransferList ytransferList zlock screenput newList into cd fld "Survivor List"select first line of cd fld "Survivor List"unlock screenrepeatif last char of cd fld "Survivor List" is return then delete last char of cd fld "Survivor List"if last char of cd fld "Survivor List" is not return then exit repeatend repeatend mouseUpon transferList letterglobal saveListglobal newListrepeat with x = 1 to number of lines of saveListrepeatif last char of newList is return then delete last char of newListif last char of newList is not return then exit repeatend repeatif char 1 of line x of saveList is letter thenput return & line x of saveList after newListend ifend repeatif first line of newList is empty then delete first line of newListend transferList</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>136</top>
<right>92</right>
<bottom>158</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<name>Move Last</name>
<script>on mouseUpglobal goStatsif goStats is empty thenanswer "Select a name from the list first!"exit mouseUpend ifif number of lines of cd fld "Survivor List" > 1 thenrepeat with x = 1 to number of lines of cd fld "Survivor List"if line x of cd fld "Survivor List" is goStats thenselect line x of cd fld "Survivor List"exit repeatend ifend repeatput cd fld "Survivor List" into saveListrepeat with x = 1 to number of lines of saveListif line x of saveList is goStats thendelete line x of saveListexit repeatend ifend repeatrepeatif last char of saveList is return then delete last char of saveListif last char of saveList is not return then exit repeatend repeatput saveList into newListput return & goStats after newListrepeatif last char of newList is return then delete last char of newListif last char of newList is not return then exit repeatend repeatlock screenput newList into cd fld "Survivor List"select last line of cd fld "Survivor List"unlock screenput empty into goStatselse answer "Can't move last. Not enough survivors!"end mouseUpon mouseUpglobal goStatsif goStats is empty thenanswer "Select a name from the list first!"exit mouseUpend ifrepeat with x = 1 to number of lines of cd fld "Survivor List"if line x of cd fld "Survivor List" is goStats thenselect line x of cd fld "Survivor List"exit repeatend ifend repeatput cd fld "Survivor List" into saveListrepeat with x = 1 to number of lines of saveListif line x of saveList is goStats thendelete line x of saveListexit repeatend ifend repeatrepeatif last char of saveList is return then delete last char of saveListif last char of saveList is not return then exit repeatend repeatput saveList into newListput return & goStats after newListrepeatif last char of newList is return then delete last char of newListif last char of newList is not return then exit repeatend repeatlock screenput newList into cd fld "Survivor List"select last line of cd fld "Survivor List"unlock screenput empty into goStatsend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>10</left>
<top>311</top>
<right>110</right>
<bottom>333</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Scan All Stats</name>
<script>on mouseUpput cd fld "Survivor List" of cd "Master" into scanTheserepeatif last char of scanThese is return then delete last char of scanTheseif last char of scanThese is not return then exit repeatend repeatif number of lines of scanThese < 1 thenanswer "No entries yet!"exit mouseUpend ifanswer "Each Stats card will be viewed for 2 seconds. Hold Shift key down" &&¬"to cancel scan." with "Abort" or "Scan"if it is "Abort" then exit mouseUprepeat with x = 1 to number of lines of cd fld "Survivor List" of cd "Master"lock screengo cd line x of cd fld "Survivor List" of cd "Master"unlock screen with visual effect shrink to bottomif the shiftKey is down thenanswer "Scan cancelled!"exit mouseUpend ifwait 120if the shiftKey is down thenanswer "Scan cancelled!"exit mouseUpend ifend repeatanswer "Scan finished!"end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>8</id>
<text>Survivor List</text>
</content>
<content>
<layer>card</layer>
<id>2</id>
<text>Click On SurvivorThen Button Below</text>
</content>
<content>
<layer>card</layer>
<id>13</id>
<text>DataBook v1.0</text>
</content>
<name>Master</name>
<script>on closeCardput empty into cd fld "Info"hide cd fld "Info"end closeCard--In case line deselected by clicking outside field or buttonon mouseUpglobal goStatsput empty into goStatsend mouseUp</script>
 (January 1993).iso/Files/Hyper/D/DataBook v1.0.cpt/DataBook v1.0/BMAP_8573.png){kind=link}
 (January 1993).iso/Files/Hyper/D/DataBook v1.0.cpt/DataBook v1.0/PATs.png){kind=link}